home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / src / X11 / tclMotif-1.4 / programs / prog107 < prev    next >
Encoding:
Text File  |  1995-06-29  |  776 b   |  39 lines
  1.  
  2.  
  3. proc popIt event {
  4.   .form.menu menuPosition $event
  5.   .form.menu manageChild
  6. }
  7.  
  8. proc Destroy {} {
  9.   . getValues -children childre
  10.   foreach w $childre {$w destroyWidget}
  11. }
  12.  
  13. proc Newindow {} {
  14.   xmForm .form managed
  15.   xmPushButton .form.btn managed -labelString win2
  16. }
  17.  
  18. proc Pop {} {
  19.   xmPopupMenu .form.menu
  20.   xmPushButton .form.menu.btn1 managed -labelString gotoWin1
  21.   xmPushButton .form.menu.btn2 managed -labelString gotoWin2
  22.   .form setValues -translations "<Btn3Down>: action(popIt %event)"
  23.  
  24.   .form.menu.btn1 activateCallback {}
  25.   .form.menu.btn2 activateCallback {Destroy; Newindow; Pop}
  26.  
  27.   . getValues -children c
  28.   puts "children of .: $c"
  29. }
  30.  
  31. xtAppInitialize
  32.  
  33. xmForm .form managed
  34. xmPushButton .form.btn managed -labelString win1  
  35. Pop
  36.  
  37. . realizeWidget
  38. . mainLoop
  39.